home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / timidsrc.zip / tkmidity.ptcl < prev    next >
Text File  |  1996-03-29  |  723b  |  44 lines
  1. #!/usr/local/bin/wishx -f
  2. #
  3. # TkMidity -- Tcl/Tk Interface for TiMidity
  4. #    written by Takashi IWAI
  5. #
  6. #  Version 1.3; Dec. 5, 1995
  7. #
  8.  
  9.  
  10. # system path and configuration file path
  11. set TclRoot %TCL_DIR%
  12. set bitmap_path $TclRoot/BITMAPS
  13. set ConfigFile "~/.tkmidity"
  14.  
  15. # append library path
  16. lappend auto_path $TclRoot
  17.  
  18. #
  19. # main routine
  20. #
  21.  
  22. InitGlobal
  23. LoadConfig
  24.  
  25. wm title . "TkMidity"
  26. wm iconname . "TkMidity"
  27. wm iconbitmap . @$bitmap_path/timidity.xbm
  28.  
  29. CreateWindow
  30. AppendMsg "TiMidity Tcl/Tk Version\n  written by Takashi Iwai\n"
  31.  
  32. init-random [pid]
  33.  
  34. if {$Stat(new_tcltk)} {
  35.     fileevent stdin readable HandleInput
  36. } else {
  37.     addinput -read stdin HandleInput
  38. }
  39.  
  40. if {$Config(AutoStart)} { PlayCmd }
  41. tkwait window .
  42.  
  43. # end of file
  44.